set more off
clear all

* Produces:
	* Appendix Figures A1 and A2

use disc_final.dta, clear
label var lmo_tenure "Logged Doctor Tenure (in months)"

foreach vm in 10 15 100 { 
	preserve
	keep if abs(vm) <= `vm'
		unique consid
		unique hmis
		
		sutex mo_assigned distancehq lmo_tenure_uc mo_present_uc mo_mpa_direct_uc mo_mpa_uc, label digits(2)  minmax nobs
	restore
}

use disc_final_geo.dta, clear

foreach npd in 1 5 100 { 
	preserve
	keep if abs(npd) <= `npd'
		unique consid
		unique hmis
		
		sutex mo_assigned distancehq lmo_tenure_uc mo_present_uc mo_mpa_direct_uc mo_mpa_uc, label digits(2)  minmax nobs
	restore
}
